<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../_Config.asp" -->
<!--#include file="../_Utils.asp" -->

<%
Session.CodePage=65001

Sign = Request("sign")
IF IsEmpty(Sign) Then
	response.Write("fail(sign not exists)")
	response.end()
End If

Dim ParamsDict
set ParamsDict=CreateObject("Scripting.Dictionary")

ParamsDict.Add "agentpayOrderId", Request("agentpayOrderId")
ParamsDict.Add "status", Request("status")
ParamsDict.Add "fee", Request("fee")
ParamsDict.Add "transMsg", Request("transMsg")
ParamsDict.Add "extra", Request("extra")
ParamsDict.Add "reqTime", Request("reqTime")

DictSign=ParamsDictSign(ParamsDict, MchKey)

IF DictSign=Sign then

	'处理业务...
	
	'向支付网关 返回“success”
	response.Write "success"
ELSE
	response.Write "fail(verify fail)"
End IF 

response.end

%>
